home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Prof. Calc d2.adf / Rexx / Fun.rexx next >
OS/2 REXX Batch file  |  1992-01-17  |  382b  |  32 lines
  1. /* Tests the REXX() function from Professional Calc */
  2.  
  3.  
  4. ADDRESS "PCALCFUN"
  5. options results
  6.  
  7.  
  8. say "In the rexx function."
  9.  
  10. 'GetManyParam'
  11. say result
  12.  
  13. end = 0;
  14. end = result
  15. say end
  16.  
  17. do i=0 for end
  18.   'GetParam' i
  19.  
  20.   say 'Parameter Number ' i ' Gives ' result
  21. end
  22.  
  23. 'GetCell' 'A1'
  24. say 'Cell A1 = ' result
  25.  
  26. 'GetCell' 'B1'
  27. say 'Cell B1 = ' result
  28.  
  29. 'CalcResult' 'Test String'
  30.  
  31. say "Done."
  32.